PC World 2007 February/PCWorld_2007-02_cd.bin/domacnost a kancelar/avedesk/AveDesk13.exe/Effects/shake.effectlet

Text File | 2004-07-10 | 3KB | 147 lines

<!--
  preamble stuff you might say to someone
  willing to open this in a text editor.
-->

<?xml version="1.0" encoding="UTF-8"?>
<effectlet>
    <info>
        <name>Shake Effect Script</name>
        <author>Fabien LAMAISON @ KERIN</author>
        <notes><![CDATA[
I'm just trying to do
some things here
        ]]></notes>
        <version>0.0.7</version>
    </info>
    <settings>
        <param name="Debug" type="Boolean" defval="False"/>
    </settings>
    <preferences>
        <preference name="MaxOffset" type="range"   defval="50" min="10" max="150">
        How hard your icon will shake (in percent of the icon size).
        Drag the Slider to the desired Value.
        </preference>
        <preference name="Speed" type="range"   defval="5" min="2" max="8">
        Define the speed of the bounce (2 is quick and 8 is very slow)
      </preference>
    </preferences>
    <images>
    </images>
    <script engine="vbScript"><![CDATA[

    Dim Counter
    Dim StartTop
    Dim StartLeft
    Dim TickRate
    Dim isOver
    Dim Offset
    Dim MaxOffsetPx

    Sub OnCreate()
        MaxOffset.value = 10
        Speed.value = 5
        isOver = false
        OffsetX = 0
        OffsetY = 0
        TickRate = 100
        Counter = 0
        StartTop = Desklet.Top
        StartLeft = Desklet.Left

        Preferences.ReadAll()
        MaxOffsetPx = MaxOffset * Desklet.Height / 100
    End Sub

    Sub OnMouseOn()
        Ticker.Interval = TickRate
        Ticker.Enabled = True
        isOver = true
    End Sub

    Sub OnMouseout()
        isOver = false
        Ticker.Enabled = False
        Desklet.Move StartLeft, StartTop
    End Sub

    'Function OnBeforeDraw(IsMouseOn, IsSelected, IsPreview)
    'End Function

    'Function OnAfterDraw(IsMouseOn, IsSelected, IsPreview)
    'End Function

    Sub OnSave()
        Preferences.SaveAll
    End Sub

    'Optional. Indicates a preference change
    Function OnPreferenceChange(Preference, oldValue, newValue)
        MaxOffsetPx = MaxOffset * Desklet.Height / 100
    End Function


    Sub OnTimer()
        if isOver then
            OffsetX = Int((2*MaxOffsetPx + 1) * Rnd - MaxOffsetPx)
            OffsetY = Int((2*MaxOffsetPx + 1) * Rnd - MaxOffsetPx)
            Desklet.Move StartLeft+OffsetX,(StartTop - OffsetY)
        End If
        'Desklet.Redraw()
    End Sub

    'Optional calls that we don't need for this script:

    'Sub OnSelect()
    'End Sub

    'Sub OnDeselect()
    'End Sub

    'Sub OnShow()
    'End Sub

    'Sub OnHide()
    'End Sub

    Sub OnConfigure()
        'the configuration dialog with default UI for
        'XML preferences will be shown.
        'An additional dialog designer is on its way. It will
        'extend the available default preferences of type:
        ' - slider, checkbox, combobox (builtin, v. 1.1, free on form with v. 1.2)
        ' - textbox, file browser, favorites URL (builtin and free on form, v. 1.2)
        ' - Any ocx (external, only free on form, v. 1.2)

    End Sub

    Sub OnStartMove()
            isOver = false
        Ticker.Enabled = False
    End Sub

    Sub OnEndMove()
        StartLeft = Desklet.Left
        StartTop = Desklet.Top
        OnMouseOn
    End Sub

    Sub OnLeftClick()
            isOver = false
        Ticker.Enabled = False
        Desklet.Move StartLeft, StartTop
    End Sub

    Sub OnRightClick()
        isOver = false
        Ticker.Enabled = False
        Desklet.Move StartLeft, StartTop
    End Sub

    'Sub OnDestroy
    'End Sub


    ]]></script>
</effectlet>